home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SETUP.PLP < prev    next >
Text File  |  1991-08-17  |  15KB  |  393 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* %Setup    { */
  3. /*  [SETUPF] */
  4. /* Setup: オートパイロット用セットアップファイルの更新｡
  5. */
  6.   /* upenv
  7.   **   オートパイロット環境定義の更新 */
  8.   %upenv {
  9.     select({ 変更する設定の内容は?},{600},{im({No})},
  10.       { 未読メールの格納先 },
  11.         {display({★現在,設定されている内容は｢});
  12.          display(@Getfield(SETUPF,{MAILPATH})|{｣です｡\n});
  13.          %temp1 @input({メールの格納先をフルパス名で入力て下さい｡(例｢B:｣,｢B:\MAIL｣)});
  14.          case(temp1={},
  15.            {No},{Setfield(SETUPF,{MAILPATH},temp1);
  16.                  display({★設定内容を｢}|temp1|{｣に変更しました｡\n})},
  17.            {Yes},,);
  18.          im({Yes})
  19.         },
  20.       { 会議室(およびＨＰ)ログの格納先 },
  21.         {display({★現在,設定されている内容は｢});
  22.          display(@Getfield(SETUPF,{LOGPATH})|{｣です｡\n});
  23.          %temp1 @input({ログの格納先をフルパス名で入力て下さい｡(例｢B:｣,｢B:\LOG｣)});
  24.          case(temp1={},
  25.            {No},{Setfield(SETUPF,{LOGPATH},temp1);
  26.                  display({★設定内容を｢}|temp1|{｣に変更しました｡\n})},
  27.            {Yes},,);
  28.          im({Yes})
  29.         },
  30.       {  終了 },{im({No})})
  31.   };
  32.   
  33.   /* upcon
  34.   **   NIFTYへの接続情報定義を更新する */
  35.   %upcon {
  36.     select({ 変更する設定の内容は?},{180},{im({No})},
  37.       { 電話回線の種別 },
  38.         {display({★現在,設定されている内容は｢});
  39.          case(@Getfield(SETUPF,{LINETYPE}),
  40.            {P},{display({ダイヤル回線})},
  41.            {T},{display({プッシュホン回線})}
  42.          );
  43.          display({｣です｡\n});
  44.          %temp1 @select({ あなたの家の電話回線の種別は?},
  45.           {600},{im({})},
  46.           { ダイヤル回線 },{im({P})},
  47.           { プッシュホン回線 },{im({T})});
  48.          case(temp1={},
  49.            {No},{Setfield(SETUPF,{LINETYPE},temp1);
  50.                   display({★設定内容を｢});
  51.                   case(temp1,
  52.                     {P},{display({ダイヤル回線})},
  53.                     {T},{display({プッシュホン回線})});
  54.                   display({｣に変更しました｡\n});
  55.                  },
  56.            {Yes},);
  57.          im({Yes})
  58.         },
  59.       { TOWNS-モデム間の通信速度 },
  60.         {display({★現在,設定されている内容は｢});
  61.          display(@Getfield(SETUPF,{BAUD})|{｣です｡\n});
  62.          %temp1 @select({TOWNS-モデム間の通信速度は},
  63.           {600},{im({})},
  64.           {   300 },{im({300})}, {   600 },{im({600})}, {  1200 },{im({1200})},
  65.           {  2400 },{im({2400})},{  4800 },{im({4800})},{  9600 },{im({9600})},
  66.           { 19200 },{im({19200})});
  67.          case(temp1={},
  68.            {No},{Setfield(SETUPF,{BAUD},temp1);
  69.                   display({★設定内容を｢}|temp1|{｣に変更しました｡\n})},
  70.            {Yes},);
  71.          im({Yes})
  72.         },
  73.       { ＭＮＰモデムの初期設定 },
  74.         {display({★現在,設定されている内容は｢}|@Getfield(SETUPF,{ATCOM})|{｣です｡});
  75.          %temp1 @input({モデム初期設定用のATコマンドを入力して下さい｡});
  76.          case(temp1={},
  77.            {No},{Setfield(SETUPF,{ATCOM},temp1);
  78.                   footnote({★設定内容を｢}|temp1|{｣に変更しました｡})},
  79.            {Yes},);
  80.          im({Yes})
  81.         },
  82.       { ＭＮＰ設定 },
  83.         {display({★現在,設定されている内容は｢});
  84.          case(@Getfield(SETUPF,{MNP}),
  85.            {Yes},{display({ＭＮＰ－ＯＮ})},
  86.            {No},{display({ＭＮＰ－ＯＦＦ})}
  87.          );
  88.          display({｣です｡\n});
  89.          %temp1 @select({},
  90.           {600},{im({})},
  91.           { ＭＮＰを利用する },{im({Yes})},
  92.           { ＭＮＰを利用しない },{im({No})});
  93.          case(temp1={},
  94.            {No},{Setfield(SETUPF,{MNP},temp1);
  95.                   display({★設定内容を｢});
  96.                   case(temp1,
  97.                     {Yes},{display({ＭＮＰ－ＯＮ})},
  98.                     {No},{display({ＭＮＰ－ＯＦＦ})});
  99.                   display({｣に変更しました｡\n});
  100.                  },
  101.            {Yes},);
  102.          im({Yes})
  103.         },
  104.       { FENICS-ROAD2のアクセスポイント },
  105.         {display({★現在,設定されている内容は｢});
  106.          %temp1 @Getfield(SETUPF,{DIALNUM1});
  107.          case(temp1={No,},
  108.            {Yes},{display({使用しない})},
  109.            {No},{display(@body(temp1,,{,No,}))});
  110.          display({｣です｡\n});
  111.          %temp1 @select({ FENICS-ROAD2を},
  112.            {600},
  113.              {im({})},
  114.            { 使用する },
  115.              {%temp2 @input({APの電話番号を(複数なら｢,｣で区切って)入力して下さい｡});
  116.               case(temp2={},
  117.                 {Yes},{im({})},
  118.                 {No},{im(temp2|{,No,})})},
  119.            { 使用しない },
  120.              {im({No,})});
  121.          case(temp1={},
  122.            {No},{Setfield(SETUPF,{DIALNUM1},temp1);
  123.                  display({★設定内容を｢});
  124.                  %temp1 @body(temp1,,{,No,});
  125.                  case(temp1={},
  126.                    {No},{display(temp1)},
  127.                    {Yes},{display({使用しない})});
  128.                  display({｣に変更しました｡\n})},
  129.            {Yes},);
  130.          im({Yes})
  131.         },
  132.       { FENICS-ROAD1(2400BPS)のアクセスポイント },
  133.         {display({★現在,設定されている内容は｢});
  134.          %temp1 @Getfield(SETUPF,{DIALNUM2});
  135.          case(temp1={No,},
  136.            {Yes},{display({使用しない})},
  137.            {No},{display(@body(temp1,,{,No,}))});
  138.          display({｣です｡\n});
  139.          %temp1 @select({ FENICS-ROAD1(2400BPS)を},
  140.            {600},
  141.              {im({})},
  142.            { 使用する },
  143.              {%temp2 @input({APの電話番号を(複数なら｢,｣で区切って)入力して下さい｡});
  144.               case(temp2={},
  145.                 {Yes},{im({})},
  146.                 {No},{im(temp2|{,No,})})},
  147.            { 使用しない },
  148.              {im({No,})});
  149.          case(temp1={},
  150.            {No},{Setfield(SETUPF,{DIALNUM2},temp1);
  151.                  display({★設定内容を｢});
  152.                  %temp1 @body(temp1,,{,No,});
  153.                  case(temp1={},
  154.                    {No},{display(temp1)},
  155.                    {Yes},{display({使用しない})});
  156.                  display({｣に変更しました｡\n})},
  157.            {Yes},);
  158.          im({Yes})
  159.         },
  160.       { FENICS-ROAD1(1200BPS)のアクセスポイント },
  161.         {display({★現在,設定されている内容は｢});
  162.          %temp1 @Getfield(SETUPF,{DIALNUM3});
  163.          case(temp1={No,},
  164.            {Yes},{display({使用しない})},
  165.            {No},{display(@body(temp1,,{,No,}))});
  166.          display({｣です｡\n});
  167.          %temp1 @select({ FENICS-ROAD1(1200BPS)を},
  168.            {600},
  169.              {im({})},
  170.            { 使用する },
  171.              {%temp2 @input({APの電話番号を(複数なら｢,｣で区切って)入力して下さい｡});
  172.               case(temp2={},
  173.                 {Yes},{im({})},
  174.                 {No},{im(temp2|{,No,})})},
  175.            { 使用しない },
  176.              {im({No,})});
  177.          case(temp1={},
  178.            {No},{Setfield(SETUPF,{DIALNUM3},temp1);
  179.                  display({★設定内容を｢});
  180.                  %temp1 @body(temp1,,{,No,});
  181.                  case(temp1={},
  182.                    {No},{display(temp1)},
  183.                    {Yes},{display({使用しない})});
  184.                  display({｣に変更しました｡\n})},
  185.            {Yes},);
  186.          im({Yes})
  187.         },
  188.       { ユーザＩＤ },
  189.         {display({★現在,設定されている内容は｢});
  190.          display(@body(@Getfield(SETUPF,{UID}),,{,No,}));
  191.          display({｣です｡\n});
  192.          %temp1 @input({ あなたのユーザIDを入力して下さい｡});
  193.          case(temp1={},
  194.            {No},{Setfield(SETUPF,{UID},temp1|{,No,});
  195.                   display({★設定内容を｢}|temp1|{｣に変更しました｡\n})},
  196.            {Yes},);
  197.          im({Yes})
  198.         },
  199.       { パスワード },
  200.         {display({★現在,設定されている内容は｢});
  201.          case(@body(@Getfield(SETUPF,{PASSWD}),,{,No,})={*},
  202.            {Yes},{display({毎回キーボードから入力する})},
  203.            {No},{display({ファイルから入力する})}
  204.          );
  205.          display({｣です｡\n});
  206.          %temp1 @select({ 接続時にパスワードを},
  207.            {600},{im({})},
  208.            { ファイルから入力する },
  209.              {im(@input({ パスワードを入力して下さい｡}))},
  210.            { 毎回キーボードから入力する },
  211.              {im({*})});
  212.          case(temp1={},
  213.            {No},{Setfield(SETUPF,{PASSWD},temp1|{,No,});
  214.                  display({★設定内容を｢});
  215.                  case(temp1={*},
  216.                    {Yes},{display({毎回キーボードから入力する})},
  217.                    {No},{display({ファイルから入力する})});
  218.                  display({｣に変更しました｡\n})},
  219.            {Yes},);
  220.          im({Yes})
  221.         },
  222.       {  終了 },{im({No})})
  223.   };
  224.   
  225.   /* upproc
  226.   **   NIFTY内の処理内容定義を更新する */
  227.   %upproc {
  228.     select({ 変更する設定の内容は?},{180},{im({No})},
  229.       { バイナリメールの自動受信 },
  230.         {display({★現在,設定されている内容は｢});
  231.          case(@Getfield(SETUPF,{BMAIL})={Yes},
  232.            {Yes},{display({自動受信する})},
  233.            {No},{display({自動受信しない})}
  234.          );
  235.          display({｣です｡\n});
  236.          %temp1 @select({ バイナリメールを},
  237.           {600},{im({})},
  238.           { 自動受信する },{im({Yes})},
  239.           { 自動受信しない },{im({No})});
  240.          case(temp1={},
  241.            {No},{Setfield(SETUPF,{BMAIL},temp1);
  242.                   display({★設定内容を｢});
  243.                   case(temp1,
  244.                     {Yes},{display({自動受信する})},
  245.                     {No},{display({自動受信しない})});
  246.                   display({｣に変更しました｡\n})},
  247.            {Yes},);
  248.          im({Yes})
  249.         },
  250.       { フォーラム },
  251.         {display({★現在,設定されている内容は｢});
  252.          %temp1 @Getfield(SETUPF,{FORUM});
  253.          case(temp1={No,},
  254.            {Yes},{display({ フォーラムを使用しない})},
  255.            {No},{display(@body(temp1,,{,No,}))});
  256.          display({｣です｡\n});
  257.          %temp1 @input({ ﾌｫｰﾗﾑ名を(複数なら｢,｣で区切って)入力して下さい｡});
  258.          case(temp1={},
  259.            {No},{Setfield(SETUPF,{FORUM},temp1|{,No,});
  260.                  FORUM:=temp1|{,No,};
  261.                  display({★設定内容を｢}|temp1|{｣に変更しました｡\n})},
  262.            {Yes},);
  263.          im({Yes})
  264.         },
  265.       { ＨＰ(Home Party) },
  266.         {display({★現在,設定されている内容は｢});
  267.          %temp1 @Getfield(SETUPF,{HP});
  268.          case(temp1={No,},
  269.            {Yes},{display({ＨＰを使用しない})},
  270.            {No},{display(@body(temp1,,{,No,}))});
  271.          display({｣です｡\n});
  272.          %temp1 @input({｢ID:PASSWD:HP名｣を(複数なら｢,｣で区切って)入力して下さい｡});
  273.          case(temp1={},
  274.            {No},{Setfield(SETUPF,{HP},temp1|{,No,});
  275.                  display({★設定内容を｢}|temp1|{｣に変更しました｡\n})},
  276.            {Yes},);
  277.          im({Yes})
  278.         },
  279.       {  終了 },{im({No})})
  280.   };
  281.   
  282.   /* uptime
  283.   **   オートパイロットの監視制限時間を更新する */
  284.   %uptime {
  285.     display({★現在,設定されている内容は｢});
  286.     display(@Getfield(SETUPF,{ABORTTIME})|{｣秒です｡\n});
  287.     %temp1 @input({ 応答を待つ制限時間を秒数で指定して下さい｡});
  288.     case(temp1={},
  289.       {No},{Setfield(SETUPF,{ABORTTIME},temp1);
  290.             display({★設定内容を｢});
  291.             display(@Getfield(SETUPF,{ABORTTIME})|{｣秒に変更しました｡\n})},
  292.       {Yes},);
  293.     im({No})
  294.   };
  295.   
  296.   /* upabort
  297.   **   NIFTY側のレスポンスが悪い時の処理定義を更新する */
  298.   %upabort {
  299.     display({★現在,設定されている内容は｢});
  300.     case(@Getfield(SETUPF,{ABORT}),
  301.       {Yes},{display({回線を切断する})},
  302.       {No},{display({回線を接続したまま,オートパイロットを終わる})}
  303.     );
  304.     display({｣です｡\n});
  305.     %temp1 @select({ 制限時間内に応答がない時は?},
  306.       {600},{im({})},
  307.       { 回線を切断する },{im({Yes})},
  308.       { 回線を接続したまま,オートパイロットを終わる},{im({No})});
  309.     case(temp1={},
  310.       {No},{Setfield(SETUPF,{ABORT},temp1);
  311.              display({★設定内容を｢});
  312.              case(temp1,
  313.                {Yes},{display({回線を切断する})},
  314.                {No},{display({接続したまま})});
  315.              display({｣に変更しました｡\n})},
  316.       {Yes},);
  317.     im({No})
  318.   };
  319.   
  320.   /* uplog
  321.   **   未読ログの保存方法の処理定義を更新する */
  322.   %uplog {
  323.     select({ 変更する設定の内容は?},{600},{im({No})},
  324.       { ログファイルの取り方 },
  325.         {display({★現在,設定されている内容は｢});
  326.          case(@Getfield(SETUPF,{PARMES}),
  327.           {Yes},{display({フォーラム別でかつ会議室別})},
  328.           {No},{display({フォーラム別に全会議室まとめて})}
  329.          );
  330.          display({｣です｡\n});
  331.          select({ どのようにログをとりますか?},{600},{im({No})},
  332.            { フォーラム別のディレクトリ下に会議室別に },
  333.              {%temp2 @select({ログﾞ格納先に各ﾌｫｰﾗﾑ名のﾃﾞｨﾚｸﾄﾘが必要です｡},
  334.                        {600},{im({No})},
  335.                        { 確認 },{im({Yes})});
  336.               case(temp2,
  337.                 {No},{im({No})},
  338.                 {Yes},{Setfield(SETUPF,{PARMES},{Yes})})},
  339.            { フォーラム別に全会議室まとめて },
  340.              {Setfield(SETUPF,{PARMES},{No})});
  341.          display({★設定内容を｢});
  342.          case(@Getfield(SETUPF,{PARMES}),
  343.           {Yes},{display({フォーラム別でかつ会議室別})},
  344.           {No},{display({フォーラム別に全会議室まとめて})}
  345.          );
  346.          display({｣に変更しました｡\n});
  347.          im({No})
  348.         },
  349.       { ダウンしたログファイルの保存方法 },
  350.         {display({★現在,設定されている内容は｢});
  351.          case(@Getfield(SETUPF,{LOGADD}),
  352.           {Yes},{display({ .LOG のファイルに累積する})},
  353.           {No},{display({ .月日 のファイルにダウンする})}
  354.          );
  355.          display({｣です｡\n});
  356.          select({ どのようにログをとりますか?},{600},{im({No})},
  357.            { .LOG のファイルに累積する },
  358.              {Setfield(SETUPF,{LOGADD},{Yes})},
  359.            { .月日 のファイルにダウンする },
  360.              {Setfield(SETUPF,{LOGADD},{No})});
  361.          display({★設定内容を｢});
  362.          case(@Getfield(SETUPF,{LOGADD}),
  363.           {Yes},{display({ .LOG のファイルに累積する})},
  364.           {No},{display({ .月日 のファイルにダウンする})}
  365.          );
  366.          display({｣に変更しました｡\n});
  367.          im({No})
  368.         })
  369.   };
  370.   
  371.   
  372.   %selproc {
  373.   /* selproc
  374.   **   セットアップ初期メニュー */
  375.     select({ 変更する設定の種類は?},{180},{im({Yes})},
  376.       { 未読ログ,受信メールの格納先 },{loop(upenv);im({Yes})},
  377.       { 接続情報 (回線種別,APの電話番号,ID,etc.) },{loop(upcon);im({Yes})},
  378.       { NIFTY内の処理 (ﾊﾞｲﾅﾘﾒｰﾙ,ﾌｫｰﾗﾑ,ﾎｰﾑﾊﾟｰﾃｨｰ) },{loop(upproc);im({Yes})},
  379.       { 制限時間の設定 },{loop(uptime);im({Yes})},
  380.       { 時間切れの対応 },{loop(upabort);im({Yes})},
  381.       { 会議室ログの保存方法 },{loop(uplog);im({Yes})},
  382.       {   全変更の取消 },{%temp1 {DEL }|SETUPF;
  383.                           dispoff({Yes});command(temp1);dispoff({No});
  384.                           write(SETUPF,undo);
  385.                           im({Yes})},
  386.       {   終了 },{im({No})})
  387.   };
  388.   
  389.   /* Setupのメイン処理 */
  390.   %undo @read(SETUPF);
  391.   loop(selproc);
  392. /* }; */
  393.